Revista do CD-ROM 85/CD-ROM 85/CD-ROM 85.iso/util/treecomp/_SETUP.1/TreeComp.exe/0/RCDATA/TTREECOMPFORM/TTREECOMPFORM.txt

Text File | 2001-02-01 | 28.5 KB | 1,091 lines

object TreeCompForm: TTreeCompForm
  Left = 16
  Top = 93
  Width = 997
  Height = 608
  Caption = 'TreeComp'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  Visible = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter3: TSplitter
    Left = 798
    Top = 0
    Width = 6
    Height = 525
    Cursor = crHSplit
    Align = alRight
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 798
    Height = 525
    Align = alClient
    BevelInner = bvLowered
    Caption = 'Panel1'
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 193
      Top = 2
      Width = 8
      Height = 521
      Cursor = crHSplit
    end
    object Panel5: TPanel
      Left = 201
      Top = 2
      Width = 595
      Height = 521
      Align = alClient
      Caption = 'Panel5'
      TabOrder = 0
      object ListView1: TListView
        Left = 1
        Top = 65
        Width = 593
        Height = 419
        Align = alClient
        Columns = <
          item
            Caption = 'Status'
            MaxWidth = 19
            Width = 19
          end
          item
            Alignment = taRightJustify
            Caption = 'Size Left'
            Width = 70
          end
          item
            Caption = 'Modified Left'
            Width = 140
          end
          item
            Caption = 'Name'
            Width = 100
          end
          item
            Caption = 'Modified Right'
            Width = 140
          end
          item
            Alignment = taRightJustify
            Caption = 'Size Right'
            Width = 70
          end>
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMenuText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        HideSelection = False
        Items.Data = {
          5F000000020000000100000001000000FFFFFFFF050000000000000001610162
          01630164016501660200000002000000FFFFFFFF060000000000000001710177
          016501720174017900FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        LargeImages = Large
        MultiSelect = True
        ReadOnly = True
        RowSelect = True
        ParentFont = False
        PopupMenu = PopupMenu1
        SmallImages = ImageList1
        TabOrder = 1
        ViewStyle = vsReport
        OnChange = ListView1Change
        OnChanging = ListView1Changing
        OnColumnClick = ListView1ColumnClick
        OnCompare = ListView1Compare
        OnDblClick = ListView1DblClick
        OnKeyDown = ListView1KeyDown
        OnKeyPress = ListView1KeyPress
      end
      object DirsPanel: TPanel
        Left = 1
        Top = 33
        Width = 593
        Height = 32
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object BothDirPanel: TPanel
          Left = 0
          Top = 0
          Width = 593
          Height = 32
          Align = alClient
          BevelOuter = bvNone
          Caption = 'Middle'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
          object LeftDirLabel: TLabel
            Left = 0
            Top = 0
            Width = 546
            Height = 32
            Cursor = crHandPoint
            Align = alClient
            Caption = 'LeftDir'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clBlue
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            Transparent = True
            Layout = tlCenter
            OnClick = FileSelectDirectories1Click
          end
          object RightDirLabel: TLabel
            Left = 546
            Top = 0
            Width = 47
            Height = 32
            Cursor = crHandPoint
            Align = alRight
            Alignment = taRightJustify
            Caption = 'RightDir'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clRed
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            Transparent = True
            Layout = tlCenter
            OnClick = FileSelectDirectories1Click
          end
        end
      end
      object Panel9: TPanel
        Left = 1
        Top = 1
        Width = 593
        Height = 32
        Align = alTop
        BevelOuter = bvNone
        Caption = 'Panel9'
        TabOrder = 2
        object ToolBar1: TToolBar
          Left = 0
          Top = 0
          Width = 81
          Align = alLeft
          AutoSize = True
          EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
          Enabled = False
          Images = ImageList1
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          object TBCopyNewerLeftToRight: TToolButton
            Left = 0
            Top = 2
            Hint = 'Overwrite newer files from blue to red'
            Caption = 'TBCopyNewerLeftToRight'
            Enabled = False
            ImageIndex = 18
            OnClick = CopyMoreRecent1Click
          end
          object TBCopyLeftToRight: TToolButton
            Left = 23
            Top = 2
            Hint = 'Copy files from blue to red'
            Caption = 'TBCopyLeftToRight'
            Enabled = False
            ImageIndex = 17
            OnClick = CopyToOtherDirectory1Click
          end
          object ToolButton1: TToolButton
            Left = 46
            Top = 2
            Width = 8
            Caption = 'ToolButton1'
            Enabled = False
            ImageIndex = 8
            Style = tbsSeparator
          end
          object TBDeleteLeft: TToolButton
            Left = 54
            Top = 2
            Hint = 'ToolButton1'
            Caption = 'TBDeleteLeft'
            Enabled = False
            ImageIndex = 8
            OnClick = Delete1Click
          end
        end
        object ToolBar2: TToolBar
          Left = 512
          Top = 0
          Width = 81
          Align = alRight
          AutoSize = True
          EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
          Enabled = False
          Images = ImageList1
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          object TBDeleteRight: TToolButton
            Left = 0
            Top = 2
            Hint = 'Copy files from blue to red'
            Caption = 'ToolButton3'
            Enabled = False
            ImageIndex = 9
            OnClick = Delete1Click
          end
          object ToolButton2: TToolButton
            Left = 23
            Top = 2
            Width = 8
            Caption = 'ToolButton2'
            Enabled = False
            ImageIndex = 4
            Style = tbsSeparator
          end
          object TBCopyRightToLeft: TToolButton
            Left = 31
            Top = 2
            Hint = 'ToolButton2'
            Caption = 'TBCopyRightToLeft'
            Enabled = False
            ImageIndex = 20
            OnClick = CopyToOtherDirectory1Click
          end
          object TBCopyNewerRightToLeft: TToolButton
            Left = 54
            Top = 2
            Hint = 'ToolButton3'
            Caption = 'TBCopyNewerRightToLeft'
            Enabled = False
            ImageIndex = 19
            OnClick = CopyMoreRecent1Click
          end
        end
        object Panel10: TPanel
          Left = 81
          Top = 0
          Width = 200
          Height = 32
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 2
        end
        object Panel12: TPanel
          Left = 281
          Top = 0
          Width = 231
          Height = 32
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 3
          object ToolBar3: TToolBar
            Left = 0
            Top = 0
            Width = 121
            Height = 29
            Align = alNone
            Anchors = [akLeft, akTop, akBottom]
            EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
            Enabled = False
            Images = ImageList1
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            object TBShowLeftOnly: TToolButton
              Left = 0
              Top = 2
              Hint = 'Show/Hide files existing on the left side only'
              AllowAllUp = True
              Caption = 'TBShowLeftOnly'
              Down = True
              Enabled = False
              ImageIndex = 1
              Style = tbsCheck
              OnClick = TBShowNormalClick
            end
            object TBShowLeftNewer: TToolButton
              Left = 23
              Top = 2
              Hint = 'Show/Hide files that are newer on the left side'
              AllowAllUp = True
              Caption = 'TBShowLeftNewer'
              Down = True
              Enabled = False
              ImageIndex = 2
              Style = tbsCheck
              OnClick = TBShowNormalClick
            end
            object TBShowNormal: TToolButton
              Left = 46
              Top = 2
              Hint = 'Show/Hide normal/masked files'
              AllowAllUp = True
              Caption = 'TBShowNormal'
              Enabled = False
              ImageIndex = 5
              Style = tbsCheck
              OnClick = TBShowNormalClick
            end
            object TBShowRightNewer: TToolButton
              Left = 69
              Top = 2
              Hint = 'Show/Hide files that are newer on the right side'
              AllowAllUp = True
              Caption = 'TBShowRightNewer'
              Down = True
              Enabled = False
              ImageIndex = 3
              Style = tbsCheck
              OnClick = TBShowNormalClick
            end
            object TBShowRightOnly: TToolButton
              Left = 92
              Top = 2
              Hint = 'Show/Hide files existing on the right side only'
              AllowAllUp = True
              Caption = 'TBShowRightOnly'
              Down = True
              Enabled = False
              ImageIndex = 4
              Style = tbsCheck
              OnClick = TBShowNormalClick
            end
          end
        end
      end
      object UpdateHistoryRightFileListBox: TListBox
        Left = 1
        Top = 502
        Width = 593
        Height = 18
        TabStop = False
        Align = alBottom
        ExtendedSelect = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        IntegralHeight = True
        ItemHeight = 14
        ParentFont = False
        TabOrder = 3
        TabWidth = 32
        Visible = False
      end
      object UpdateHistoryLeftFileListBox: TListBox
        Left = 1
        Top = 484
        Width = 593
        Height = 18
        TabStop = False
        Align = alBottom
        ExtendedSelect = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'Courier New'
        Font.Style = []
        IntegralHeight = True
        ItemHeight = 14
        ParentFont = False
        TabOrder = 4
        TabWidth = 32
        Visible = False
      end
    end
    object Panel13: TPanel
      Left = 2
      Top = 2
      Width = 191
      Height = 521
      Align = alLeft
      Caption = 'Panel13'
      ParentShowHint = False
      ShowHint = False
      TabOrder = 1
      object Panel14: TPanel
        Left = 1
        Top = 1
        Width = 189
        Height = 32
        Align = alTop
        BevelOuter = bvNone
        Caption = 'Panel14'
        TabOrder = 0
        object Panel15: TPanel
          Left = 0
          Top = 0
          Width = 73
          Height = 32
          Align = alLeft
          BevelOuter = bvNone
          TabOrder = 0
          object Label1: TLabel
            Left = 0
            Top = 0
            Width = 63
            Height = 13
            Caption = 'Scan started:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clPurple
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
        end
        object Panel17: TPanel
          Left = 73
          Top = 0
          Width = 116
          Height = 32
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 1
          object Label2: TLabel
            Left = 32
            Top = 0
            Width = 50
            Height = 13
            Caption = 'Scan time:'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clPurple
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            ParentFont = False
          end
          object ToolBar4: TToolBar
            Left = 1
            Top = 1
            Width = 27
            Height = 28
            Align = alNone
            AutoSize = True
            EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
            Images = ImageList1
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            object tbFullCollapse: TToolButton
              Left = 0
              Top = 2
              Hint = 'Expand/Collapse the Tree'
              Caption = 'TBShowNormal'
              Enabled = False
              ImageIndex = 21
              Style = tbsCheck
              OnClick = tbFullCollapseClick
            end
          end
        end
      end
      object TreeView1: TTreeView
        Left = 1
        Top = 53
        Width = 189
        Height = 467
        Align = alClient
        HideSelection = False
        Images = ImageList1
        Indent = 19
        ParentShowHint = False
        PopupMenu = PopupMenu2
        ReadOnly = True
        RightClickSelect = True
        ShowHint = False
        SortType = stText
        TabOrder = 1
        OnChange = TreeView1Change
        OnCollapsed = TreeView1Expanded
        OnContextPopup = TreeView1ContextPopup
        OnExpanded = TreeView1Expanded
        Items.Data = {
          010000001E0000000000000000000000FFFFFFFFFFFFFFFF0000000002000000
          0571756972741D0000000000000000000000FFFFFFFFFFFFFFFF000000000000
          00000470726F6A1C0000000000000000000000FFFFFFFFFFFFFFFF0000000002
          00000003737263210000000400000004000000FFFFFFFFFFFFFFFF0000000000
          0000000844656C70686920331E0000000000000000000000FFFFFFFFFFFFFFFF
          0000000000000000057175697274}
      end
      object Panel3: TPanel
        Left = 1
        Top = 33
        Width = 189
        Height = 20
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 2
        object CheckBoxHideOldFiles: TCheckBox
          Left = 8
          Top = 0
          Width = 89
          Height = 17
          TabStop = False
          Anchors = [akLeft, akTop, akRight, akBottom]
          Caption = 'H&ide Old Files'
          TabOrder = 0
          OnClick = CheckBoxHideOldFilesClick
        end
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 542
    Width = 989
    Height = 20
    Panels = <
      item
        Width = 200
      end
      item
        Width = 225
      end
      item
        Width = 150
      end
      item
        Width = 225
      end>
    SimplePanel = False
  end
  object StatusPanel: TPanel
    Left = 0
    Top = 525
    Width = 989
    Height = 17
    Hint = 'Double click for ftp details'
    Align = alBottom
    Alignment = taLeftJustify
    BevelInner = bvLowered
    BevelOuter = bvNone
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnDblClick = StatusPanelDblClick
    object ProgressBar1: TProgressBar
      Left = 693
      Top = 1
      Width = 295
      Height = 15
      Align = alRight
      Min = 0
      Max = 100
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 804
    Top = 0
    Width = 185
    Height = 525
    Align = alRight
    Caption = 'Panel2'
    TabOrder = 3
    object Splitter2: TSplitter
      Left = 91
      Top = 1
      Width = 5
      Height = 523
      Cursor = crHSplit
      Align = alRight
    end
    object Memo2: TMemo
      Left = 96
      Top = 1
      Width = 88
      Height = 523
      Align = alRight
      Lines.Strings = (
        'Memo2')
      ScrollBars = ssBoth
      TabOrder = 1
    end
    object Memo1: TMemo
      Left = 1
      Top = 1
      Width = 90
      Height = 523
      Align = alClient
      Lines.Strings = (
        'Memo1')
      ScrollBars = ssBoth
      TabOrder = 0
    end
  end
  object ImageList1: TImageList
    Left = 280
  end
  object MainMenu1: TMainMenu
    Left = 648
    object File1: TMenuItem
      Caption = '&File'
      object FileSelectDirectories1: TMenuItem
        Caption = '&Select Directories'
        OnClick = FileSelectDirectories1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object FilePreferences1: TMenuItem
        Caption = '&Preferences'
        OnClick = FilePreferences1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object FilePrint1: TMenuItem
        Caption = '&Print...'
        OnClick = FilePrint1Click
      end
      object FilePrintSetup1: TMenuItem
        Caption = 'P&rint Setup...'
        OnClick = FilePrintSetup1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FileExit1: TMenuItem
        Caption = 'E&xit'
        OnClick = FileExit1Click
      end
    end
    object CompareTrees1: TMenuItem
      Caption = '&Compare Trees'
      object CompareTreesDefault1: TMenuItem
        Caption = 'Default'
        RadioItem = True
        OnClick = CompareTreesDefault1Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object CompareTreesMoreOptions1: TMenuItem
        Caption = 'More &Options'
        OnClick = CompareTreesMoreOptions1Click
      end
      object CompareTreesStop: TMenuItem
        Caption = 'Stop'
        Enabled = False
        OnClick = StopComparison1Click
      end
    end
    object View1: TMenuItem
      Caption = '&View'
      object ArrangeIcons1: TMenuItem
        Caption = 'Arrange &Icons'
        object byStatus1: TMenuItem
          Caption = 'by &Status'
          Checked = True
          RadioItem = True
          OnClick = byStatus1Click
        end
        object byAttributeLeft1: TMenuItem
          Caption = 'by &Attribute Left'
          RadioItem = True
          OnClick = byStatus1Click
        end
        object bySizeleft1: TMenuItem
          Caption = 'by S&ize left'
          RadioItem = True
          OnClick = byStatus1Click
        end
        object byModifiedLeft1: TMenuItem
          Caption = 'by &Modified Left'
          RadioItem = True
          OnClick = byStatus1Click
        end
        object byName1: TMenuItem
          Caption = 'by &Name'
          RadioItem = True
          OnClick = byStatus1Click
        end
        object byModifiedRight1: TMenuItem
          Caption = 'by M&odified Right'
          RadioItem = True
          OnClick = byStatus1Click
        end
        object bySizeRight1: TMenuItem
          Caption = 'by Si&ze Right'
          RadioItem = True
          OnClick = byStatus1Click
        end
        object byAttributeRight1: TMenuItem
          Caption = 'by A&ttribute Right'
          RadioItem = True
          OnClick = byStatus1Click
        end
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object ViewRefresh1: TMenuItem
        Caption = '&Refresh'
        ShortCut = 116
        OnClick = ViewRefresh1Click
      end
    end
    object Options1: TMenuItem
      Caption = '&Options'
      object OptionsMonitoringThread1: TMenuItem
        Caption = '&Monitoring Thread'
        OnClick = OptionsMonitoringThread1Click
      end
      object OptionsFileattributes1: TMenuItem
        Caption = '&File attributes'
        OnClick = OptionsFileattributes1Click
      end
    end
    object Debug1: TMenuItem
      Caption = '&Debug'
      object DebugFindFirstFile1: TMenuItem
        Caption = 'FindFirstFile'
        OnClick = DebugFindFirstFile1Click
      end
      object DebugMarkClean1: TMenuItem
        Caption = 'Mark &Clean'
        OnClick = DebugMarkClean1Click
      end
      object DebugShowMemos1: TMenuItem
        Caption = 'Show &Memos'
        OnClick = DebugShowMemos1Click
      end
      object DebugWalkThrough1: TMenuItem
        Caption = '&WalkThrough'
        OnClick = DebugWalkThrough1Click
      end
      object DebugCumNodeSize1: TMenuItem
        Caption = 'CumNodeSize'
        OnClick = DebugCumNodeSize1Click
      end
      object DebugDumpModifications1: TMenuItem
        Caption = 'Dump Modifications'
        OnClick = DebugDumpModifications1Click
      end
      object DebugInspectFilesAtNode1: TMenuItem
        Caption = 'Inspect Files At Node'
        OnClick = DebugInspectFilesAtNode1Click
      end
      object DebugUForceDirectoriesTest1: TMenuItem
        Caption = 'UForceDirectoriesTest'
        OnClick = DebugUForceDirectoriesTest1Click
      end
      object DebugFileNameFindFirstDir1: TMenuItem
        Caption = 'FileNameFindFirst(Dir)'
        OnClick = DebugFileNameFindFirstDir1Click
      end
      object DebugToggleImageIndex1: TMenuItem
        Caption = 'ToggleImageIndex'
        OnClick = DebugToggleImageIndex1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object HelpTopics1: TMenuItem
        Caption = '&Help Topics'
        OnClick = HelpTopics1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object HelpAbout1: TMenuItem
        Caption = '&About...'
        OnClick = HelpAbout1Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    OnPopup = Timer1Timer
    Left = 680
    object CopyToOtherDirectory1: TMenuItem
      Caption = 'Copy to &Other Directory'
      Enabled = False
      ShortCut = 16463
      OnClick = CopyToOtherDirectory1Click
    end
    object CopyMoreRecent1: TMenuItem
      Caption = 'Copy More &Recent'
      Enabled = False
      ShortCut = 16466
      OnClick = CopyMoreRecent1Click
    end
    object CopyLessRecent1: TMenuItem
      Caption = 'Copy &Less Recent'
      Enabled = False
      ShortCut = 16460
      OnClick = CopyMoreRecent1Click
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      Enabled = False
      ShortCut = 16453
      OnClick = ListView1DblClick
    end
    object EditLeftFile1: TMenuItem
      Caption = 'Ed&it Left File(s)'
      Enabled = False
      ShortCut = 16457
      Visible = False
      OnClick = ListView1DblClick
    end
    object EditRightFile1: TMenuItem
      Caption = 'Edi&t Right File(s)'
      Enabled = False
      ShortCut = 16468
      Visible = False
      OnClick = ListView1DblClick
    end
    object Windiff1: TMenuItem
      Caption = '&Windiff'
      Enabled = False
      ShortCut = 16471
      OnClick = ListView1DblClick
    end
    object Open1: TMenuItem
      Caption = 'Open'
      Enabled = False
      ShortCut = 16472
      OnClick = ListView1DblClick
    end
    object OpenLeftFile1: TMenuItem
      Caption = 'Open Left'
      Enabled = False
      ShortCut = 16469
      Visible = False
      OnClick = ListView1DblClick
    end
    object OpenRightFile1: TMenuItem
      Caption = 'Open Right'
      Enabled = False
      ShortCut = 16470
      Visible = False
      OnClick = ListView1DblClick
    end
    object AddToUpdateHistory1: TMenuItem
      Caption = 'Add to Update &History...'
      Enabled = False
      ShortCut = 16456
      OnClick = ListView1DblClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object Rename1: TMenuItem
      Caption = 'Rena&me'
      Enabled = False
      ShortCut = 113
      OnClick = Rename1Click
    end
    object Delete1: TMenuItem
      Caption = '&Delete'
      Enabled = False
      ShortCut = 16452
      OnClick = Delete1Click
    end
    object DeleteLeft1: TMenuItem
      Caption = 'Delete Le&ft'
      Enabled = False
      ShortCut = 16454
      Visible = False
      OnClick = Delete1Click
    end
    object DeleteRight1: TMenuItem
      Caption = 'Delete Ri&ght'
      Enabled = False
      ShortCut = 16455
      Visible = False
      OnClick = Delete1Click
    end
    object DeleteBoth1: TMenuItem
      Caption = 'Delete &Both'
      Enabled = False
      ShortCut = 16450
      OnClick = Delete1Click
    end
    object CopytoLeft1: TMenuItem
      Caption = 'Co&py to Left'
      Enabled = False
      ShortCut = 16464
      Visible = False
      OnClick = CopyMoreRecent1Click
    end
    object CopytoRight1: TMenuItem
      Caption = 'Cop&y to Right'
      Enabled = False
      ShortCut = 16473
      Visible = False
      OnClick = CopyMoreRecent1Click
    end
    object CopyToToday1: TMenuItem
      Caption = 'Copy to'
      Enabled = False
      ShortCut = 16467
      Visible = False
      OnClick = CopyToOtherDirectory1Click
    end
    object N7: TMenuItem
      Caption = '-'
    end
    object Exploreleft1: TMenuItem
      Caption = 'Explore Left'
      Enabled = False
      ShortCut = 49240
      OnClick = Exploreleft1Click
    end
    object Exploreright1: TMenuItem
      Caption = 'Explore Right'
      Enabled = False
      ShortCut = 49241
      OnClick = Exploreleft1Click
    end
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 312
  end
  object PrintDialog1: TPrintDialog
    Left = 344
  end
  object PopupMenu2: TPopupMenu
    Left = 616
    object TreeViewWindiff: TMenuItem
      Caption = '&Windiff'
      ShortCut = 16471
      OnClick = TreeView1WindiffClick
    end
    object TreeViewNewDirLeft: TMenuItem
      Caption = 'New directory &Left'
      ShortCut = 16460
      OnClick = TreeViewNewdirectoryClick
    end
    object TreeViewNewDirRight: TMenuItem
      Caption = 'New directory &Right'
      ShortCut = 16466
      OnClick = TreeViewNewdirectoryClick
    end
    object TreeViewRenamedir: TMenuItem
      Caption = 'R&ename directory'
      ShortCut = 16453
      OnClick = TreeViewRenamedirClick
    end
    object TreeViewCopyDir: TMenuItem
      Caption = '&Copy directory'
      ShortCut = 16451
      OnClick = TreeViewCopyDirClick
    end
    object TreeViewDeleteDirLeft: TMenuItem
      Caption = '&Delete directory Left'
      ShortCut = 16452
      OnClick = TreeViewDeleteDirClick
    end
    object TreeViewDeleteDirRight: TMenuItem
      Caption = 'Delete directory R&ight'
      ShortCut = 16457
      OnClick = TreeViewDeleteDirClick
    end
    object TreeViewExploreLeft: TMenuItem
      Caption = 'E&xplore Left'
      ShortCut = 49240
      OnClick = TreeViewExploreClick
    end
    object TreeViewExploreRight: TMenuItem
      Caption = 'Ex&plore Right'
      ShortCut = 49241
      OnClick = TreeViewExploreClick
    end
    object N8: TMenuItem
      Caption = '-'
    end
    object TreeViewAdvanced1: TMenuItem
      Caption = '&Advanced'
      object TreeViewAdvancedSynchronizeLeftToRight1: TMenuItem
        Caption = 'Synchronize Left to Right'
        OnClick = TreeViewAdvancedSynchronizeLeftToRight1Click
      end
      object TreeViewAdvancedSynchronizeRighttoLeft1: TMenuItem
        Caption = 'Synchronize Right to Left'
        OnClick = TreeViewAdvancedSynchronizeLeftToRight1Click
      end
    end
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 384
  end
  object Large: TImageList
    Height = 32
    Width = 32
    Left = 417
    Top = 1
  end
  object RefreshTimer: TTimer
    Interval = 10000
    OnTimer = ViewRefresh1Click
    Left = 417
    Top = 34
  end
  object StopTimer: TTimer
    Enabled = False
    OnTimer = StopTimerTimer
    Left = 384
    Top = 32
  end
  object ZipMasterLeft: TZipMaster
    Verbose = False
    Trace = False
    AddCompLevel = 9
    AddOptions = []
    ExtrOptions = []
    Unattended = False
    SFXPath = 'ZipSFX.bin'
    SFXOverWriteMode = OvrConfirm
    SFXCaption = 'Self-extracting Archive'
    KeepFreeOnDisk1 = 0
    VersionInfo = '1.60 L'
    AddStoreSuffixes = [assGIF, assPNG, assZ, assZIP, assZOO, assARC, assLZH, assARJ, assTAZ, assTGZ, assLHA]
    Left = 686
    Top = 37
  end
  object ZipMasterRight: TZipMaster
    Verbose = False
    Trace = False
    AddCompLevel = 9
    AddOptions = []
    ExtrOptions = []
    Unattended = False
    SFXPath = 'ZipSFX.bin'
    SFXOverWriteMode = OvrConfirm
    SFXCaption = 'Self-extracting Archive'
    KeepFreeOnDisk1 = 0
    VersionInfo = '1.60 L'
    AddStoreSuffixes = [assGIF, assPNG, assZ, assZIP, assZOO, assARC, assLZH, assARJ, assTAZ, assTGZ, assLHA]
    Left = 716
    Top = 37
  end
end